home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / General / ViewIt™ 2.24 Shareware / FORTRAN Demo Projects / Absoft MacFortran II 3.2 Demos / MinimumAF.f < prev    next >
Text File  |  1993-05-14  |  732b  |  33 lines
  1. C NOTE: Read the "MPW Fortrans" section of "About Compilers"
  2. C before compiling AF programs that use FaceWare modules.
  3.  
  4. C Minimum AF Demonstration Program
  5. C ©FaceWare 1991-93.  All Rights Reserved.
  6.  
  7.     GLOBAL DEFINE
  8.     include "Types.inc"
  9.     include "QuickDraw.inc"
  10.     include "Controls.inc"
  11.     include "Events.inc"
  12.     include "OSUtils.inc"
  13.     include "OSEvents.inc"
  14.     include "SegLoad.inc"
  15.     include "Files.inc"
  16.     include "Resources.inc"
  17.     include "FaceStorAF.inc"
  18.     END
  19.  
  20.     include "FaceProcAF.inc"
  21.  
  22.       PROGRAM MinimumAF
  23.     implicit none
  24.       record /FaceRec/ fRec
  25.       common/FaceStuff/fRec
  26.  
  27.       fRec.uName = 'Minimum.Rsrc'
  28.       call FaceIt(0,DoInit,0,0,0,0)
  29.       do while (.true.)
  30.         call FaceIt(0,DoLoop,0,0,0,0)
  31.       end do
  32.       end
  33.